
clear 
use "Data.dta"

generate t=td(17feb2011)+_n-1 
format t %td 
tsset t

*********************
*** Twitter 1    ****
*********************
quietly var LibRebTOLibGov LibGovTOLibReb USGovTOLibGov USGovTOLibReb Natoal_USGov USGov_NATOAL Twitter1,lags(1/4)
irf create order1,step(4) set(myirf41) replace
irf table oirf, irf(order1) impulse(Twitter1) response( USGovTOLibReb)
irf table oirf, irf(order1) impulse(Twitter1) response( USGovTOLibReb) level(90)

*********************
*** Twitter 2    ****
*********************
quietly var LibRebTOLibGov LibGovTOLibReb USGovTOLibGov USGovTOLibReb Natoal_USGov USGov_NATOAL Twitter2,lags(1/4)
irf create order1,step(4) set(myirf41) replace
irf table oirf, irf(order1) impulse(Twitter2) response( USGovTOLibReb)
irf table oirf, irf(order1) impulse(Twitter2) response( USGovTOLibReb) level(90)

*********************
*** Twitter 3    ****
*********************
quietly var LibRebTOLibGov LibGovTOLibReb USGovTOLibGov USGovTOLibReb Natoal_USGov USGov_NATOAL Twitter3,lags(1/4)
irf create order1,step(4) set(myirf41) replace
irf table oirf, irf(order1) impulse(Twitter3) response( USGovTOLibReb)
irf table oirf, irf(order1) impulse(Twitter3) response( USGovTOLibReb) level(90)

*********************
*** Twitter 4    ****
*********************
quietly var LibRebTOLibGov LibGovTOLibReb USGovTOLibGov USGovTOLibReb Natoal_USGov USGov_NATOAL Twitter4,lags(1/4)
irf create order1,step(4) set(myirf41) replace
irf table oirf, irf(order1) impulse(Twitter4) response( USGovTOLibReb)
irf table oirf, irf(order1) impulse(Twitter4) response( USGovTOLibReb) level(90)

*********************
*** Twitter TOT  ****
*********************
quietly var LibRebTOLibGov LibGovTOLibReb USGovTOLibGov USGovTOLibReb Natoal_USGov USGov_NATOAL TwitterTOT,lags(1/4)
irf create order1,step(4) set(myirf41) replace
irf table oirf, irf(order1) impulse(TwitterTOT) response( USGovTOLibReb)
irf table oirf, irf(order1) impulse(TwitterTOT) response( USGovTOLibReb) level(90)


